3 REM COLOR BLOCKS
5 G=13*4096:POKE G+33,0
7 S$=""
10 PRINT "[147]":CD$="[144][159][156][158][129][149][150][151][152][153][154][155]"
13 DATA "BLACK","WHITE","RED"
14 DATA "[159]CYAN","[156]PURPLE","GREEN"
15 DATA "BLUE","[158]YELLOW","[129]ORANGE"
16 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
17 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
18 DATA "[155]GRAY 3"
20 FOR X=0 TO 3
25 FOR Y=1 TO 5
30 FOR Z=1 TO 4
40 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
50 NEXT Z
60 NEXT Y
65 IF X<>3 THEN PRINT
70 NEXT X
75 PRINT ""SPC(1)"[207][183][183][183][183][183][183][208]"SPC(32)"[165]      [167]"
76 PRINT SPC(1)"[165]      [167]"SPC(32)"[165]      [167]"
79 PRINTSPC(1)"[204][175][175][175][175][175][175][186]"
80 PRINT"";:FOR X=1 TO 4
90 READ A$,B$,C$,D$
100 PRINT "";:IF X=1 THEN PRINT "[145]";
105 PRINT ""A$,""B$,""C$,""D$
110 NEXT X
115 GOTO 200
120 GET A$:IF A$="" THEN 120
130 IF A$<CHR$(128) THEN POKE G+33,PEEK(G+33)+1 AND 15
134 BC=PEEK(G+33)+1 AND 15:BC=(-(BC=0)+BC)OR 240
135 IF A$>CHR$(127) THEN POKE G+32,BC
140 GOTO 120
200 X=INT(RND(1)*16)
210 Y=INT(RND(1)*15+1)
220 POKE G+33,X
230 POKE G+32,Y OR 240
240 FOR A=1 TO 350
250 NEXT A
260 GOTO 200